home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / agavb25.zip / DELPHI.ZIP / EXAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-20  |  2KB  |  73 lines
  1. unit Example;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, VBXCtrl, Agauge, StdCtrls, Agauge25;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Timer1: TTimer;
  12.     ScrollBar1: TScrollBar;
  13.     ScrollBar2: TScrollBar;
  14.     aGauge1: TaGauge;
  15.     aGauge2: TaGauge;
  16.     procedure Timer1Timer(Sender: TObject);
  17.     procedure ScrollBar1Change(Sender: TObject);
  18.     procedure ScrollBar2Change(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.Timer1Timer(Sender: TObject);
  33. begin
  34.  
  35.    aGauge1.NeedleValue := aGauge1.NeedleValue + Random - 0.5;
  36.  
  37.    if aGauge1.NeedleValue<0.0 then aGauge1.NeedleValue := 0.0;
  38.    if aGauge1.NeedleValue>50.0 then aGauge1.NeedleValue := 50.0;
  39.  
  40.    ScrollBar2.Position := Round(aGauge1.NeedleValue*10);
  41.  
  42.    ScrollBar1.Position := ScrollBar1.Position + Random(3)-1;
  43.    if ScrollBar1.Position = 0 then ScrollBar1.Position := 360
  44.    else if ScrollBar1.Position = 360 then ScrollBar1.Position := 0;
  45.  
  46.    aGauge2.TicID := 0;
  47.    aGauge2.TicFloatOffset := -ScrollBar1.Position;
  48.    aGauge2.TicID := 1;
  49.    aGauge2.TicFloatOffset := -ScrollBar1.Position;
  50.    aGauge2.NeedleValue := ScrollBar1.Position;
  51.  
  52. end;
  53.  
  54. procedure TForm1.ScrollBar1Change(Sender: TObject);
  55. begin
  56.  
  57.      aGauge2.TicID := 0;
  58.      aGauge2.TicFloatOffset := -ScrollBar1.Position;
  59.      aGauge2.TicID := 1;
  60.      aGauge2.TicFloatOffset := -ScrollBar1.Position;
  61.      aGauge2.NeedleValue := ScrollBar1.Position;
  62.  
  63. end;
  64.  
  65. procedure TForm1.ScrollBar2Change(Sender: TObject);
  66. begin
  67.  
  68.      aGauge1.NeedleValue := ScrollBar2.Position/10;
  69.  
  70. end;
  71.  
  72. end.
  73.